home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr48 / bpl70n12.zip / TESTPRGS.ZIP / FUN1_TP6.PAS < prev    next >
Pascal/Delphi Source File  |  1993-03-07  |  2KB  |  112 lines
  1. UNIT Fun1_TP6; { Copyright (c) 1988-1993 Norbert Juffa }
  2.  
  3. { Fun1_TP6 makes the REAL arithmetic software routines available to programs
  4.   that are compiled with coprocessor support. }
  5.  
  6. {$A+,B-,D+,E-,F-,I-,L-,N-,O-,R-,S-,V-}
  7. {$M 16384,0,655360}
  8.  
  9.  
  10. INTERFACE
  11.  
  12. TYPE RealMathFun = FUNCTION (X: REAL): REAL;
  13.  
  14. FUNCTION Add_TP60  (X, Y: REAL): REAL;
  15. FUNCTION Sub_TP60  (X, Y: REAL): REAL;
  16. FUNCTION Mul_TP60  (X, Y: REAL): REAL;
  17. FUNCTION Div_TP60  (X, Y: REAL): REAL;
  18. FUNCTION Sqr_TP60  (X: REAL): REAL;
  19. FUNCTION Int_TP60  (X: REAL): REAL;
  20. FUNCTION Frac_TP60 (X: REAL): REAL;
  21. FUNCTION Trunc_TP60(X: REAL): LONGINT;
  22. FUNCTION Round_TP60(X: REAL): LONGINT;
  23. FUNCTION Float_TP60(I: LONGINT): REAL;
  24.  
  25.  
  26. FUNCTION SW_Arctan (X: REAL): REAL;
  27. FUNCTION SW_Sin    (X: REAL): REAL;
  28. FUNCTION SW_Cos    (X: REAL): REAL;
  29. FUNCTION SW_Exp    (X: REAL): REAL;
  30. FUNCTION SW_Ln     (X: REAL): REAL;
  31.  
  32.  
  33. IMPLEMENTATION
  34.  
  35. FUNCTION Add_TP60 (X, Y: REAL): REAL;
  36. BEGIN
  37.    Add_TP60 := X + Y;
  38. END;
  39.  
  40. FUNCTION Sub_TP60 (X, Y: REAL): REAL;
  41. BEGIN
  42.    Sub_TP60 := X - Y;
  43. END;
  44.  
  45. FUNCTION Mul_TP60 (X, Y: REAL): REAL;
  46. BEGIN
  47.    Mul_TP60 := X * Y;
  48. END;
  49.  
  50. FUNCTION Div_TP60 (X, Y: REAL): REAL;
  51. BEGIN
  52.    Div_TP60 := X / Y;
  53. END;
  54.  
  55. FUNCTION Sqr_TP60 (X: REAL): REAL;
  56. BEGIN
  57.    Sqr_TP60 := Sqr (X);
  58. END;
  59.  
  60. FUNCTION Int_TP60 (X: REAL): REAL;
  61. BEGIN
  62.    Int_TP60 := Int (X);
  63. END;
  64.  
  65. FUNCTION Frac_TP60 (X: REAL): REAL;
  66. BEGIN
  67.    Frac_TP60 := Frac (X);
  68. END;
  69.  
  70. FUNCTION Trunc_TP60 (X:REAL): LONGINT;
  71. BEGIN
  72.    Trunc_TP60 := Trunc (X);
  73. END;
  74.  
  75. FUNCTION Round_TP60 (X:REAL): LONGINT;
  76. BEGIN
  77.    Round_TP60 := Round (X);
  78. END;
  79.  
  80. FUNCTION Float_TP60 (I: LONGINT): REAL;
  81. BEGIN
  82.    Float_TP60 := I;
  83. END;
  84.  
  85.  
  86. FUNCTION SW_Arctan (X: REAL): REAL;
  87. BEGIN
  88.    SW_Arctan := Arctan (X);
  89. END;
  90.  
  91. FUNCTION SW_Sin    (X: REAL): REAL;
  92. BEGIN
  93.    SW_Sin := Sin (X);
  94. END;
  95.  
  96. FUNCTION SW_Cos    (X: REAL): REAL;
  97. BEGIN
  98.    SW_Cos := Cos (X);
  99. END;
  100.  
  101. FUNCTION SW_Exp    (X: REAL): REAL;
  102. BEGIN
  103.    SW_Exp := Exp (X);
  104. END;
  105.  
  106. FUNCTION SW_Ln     (X: REAL): REAL;
  107. BEGIN
  108.    SW_Ln := Ln (X);
  109. END;
  110.  
  111. END. { Fun1_TP6 }
  112.